home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amcafext.lha / AMCAF_Examples / TV.AMOS / TV.amosSourceCode
AMOS Source Code  |  1995-07-14  |  1KB  |  28 lines
  1. ' ************************************* Commands used: 
  2. ' *                                   * Blitter Fill 
  3. ' *           Amcaf Examples          * Turbo Draw 
  4. ' *         Blitter Fill V1.1         *  
  5. ' *      Written by Chris Hodges      *  
  6. ' *                                   *  
  7. ' *************************************  
  8. '                          
  9. ' Create a overscanned screen with 2 colours.
  10. Screen Open 0,352,272,2,Lowres
  11. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  12. ' Put the screen to the right place. 
  13. Screen Display 0,112,32,352,272
  14. ' Set the palette to black & white.
  15. Palette $444,$FFF
  16. ' Fill the screen with some random pattern.
  17. For A=0 To((Screen Width/8)*Screen Height)-1 Step 2
  18.   Doke Logbase(0)+A,Rnd(65535)
  19. Next 
  20. ' Draw a vertical line, to ensure, that there are no jaggy edges.. 
  21.  Extension_8_1016 0,351 To 351,263,1
  22. ' Now simply call Blitter Fill all the time, creating a wonderful TV effect. 
  23. Repeat 
  24.   Wait Vbl 
  25.    Extension_8_1042 0,0
  26. Until Inkey$=Chr$(27) or Mouse Key<>0
  27. Screen Close 0
  28. End